home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Remapper.pxl < prev    next >
Text File  |  2000-12-23  |  3KB  |  114 lines
  1. Initialize:
  2.     UseCoordinates(PIXEL) 
  3.     SetColorPalette(BITMAP)
  4.     Title$ = "PiXCL 5.0 Color Remapping"
  5.     UseCaption(Title$)
  6.     WinAdjustRect(100,100,480,235,MENU,wx1,wy1,wx2,wy2)
  7.     WinLocate(Title$,wx1,wy1,wx2,wy2,Res)  {100,100,380,135}
  8.     WinShow(Title$,TOPMOST,Res)
  9.     ImageFile$ = ""
  10.     UseBackground(TRANSPARENT,166,166,166)
  11.     DrawBackground
  12.     DirGet(SourceDir$)
  13.     
  14.     UseFont("MS Sans Serif",0,19,NOBOLD,NOITALIC,NOUNDERLINE,255,0,0)
  15.  
  16.     InfoMenu(REMOVE)
  17.     WaitInput(100)
  18.     SetMenu("&File",IGNORE,
  19.         "Exit!",Leave,
  20.         ENDPOPUP,
  21.         "PAL files",IGNORE,
  22.         "Make Std",Make_Std,
  23.         "Make Neg",Make_Neg,
  24.         ENDPOPUP,
  25.         "&Help",IGNORE,
  26.         "&Concept",Concept,
  27.         ENDPOPUP)
  28.     
  29.     StatusWindow(ENABLE,BOTTOM,2,200,-1,0,0)
  30.     DrawStatusWinText(0,"Ready")
  31.  
  32.     GoSub Make_Strings
  33.  
  34. Wait_for_Input:
  35.     WaitInput()
  36.  
  37.  
  38.  
  39. Leave:
  40.     End
  41.  
  42. Concept:
  43.     MessageBox(OK,1,ICON11,
  44. "This sample program creates color remapping array 
  45. files for the RemapImage command. Currently, it creates
  46. a standard 0-255 and a negative 255-0 array file.",
  47.     "Making Color Remapper files",Res)
  48.  
  49.     Goto Wait_for_Input
  50.  
  51. Make_Std:
  52.     UseCursor(WAIT)
  53.     DrawStatusWinText(0,"Creating remap file...")
  54.     WaitInput(1)
  55.     Palette$ = PaletteHeader$
  56.     ProgressBar(ENABLE,10,10,200,30)
  57.     UpdateProgressBar(0,ABSOLUTE)
  58.     For i=0 To 255  By 1
  59.         Str(i, i$)
  60.         Palette$ = Palette$ + i$  {red value}
  61.         Palette$ = Palette$ + " "
  62.         Palette$ = Palette$ + i$ {green value}
  63.         Palette$ = Palette$ + " "
  64.         Palette$ = Palette$ + i$ {blue value}
  65.         Palette$ = Palette$ + CRLF$
  66.         UpdateProgressBar(1,RELATIVE)
  67.     Next
  68.     PALFileName$ = SourceDir$ + "\stdmap.pal"
  69.     Len(Palette$,Long)
  70.     FileDelete(PALFileName$,Res)
  71.     FileWrite_ASCII(PALFileName$,0,Long,Palette$,Res)
  72.     UseCursor(ARROW)
  73.     ProgressBar(DISABLE,10,10,200,220)
  74.     DrawStatusWinText(0,"Ready")
  75.     Goto Wait_for_Input
  76.  
  77. Make_Neg:
  78.     UseCursor(WAIT)
  79.     DrawStatusWinText(0,"Creating remap file...")
  80.     WaitInput(1)
  81.     FreeVar(Palette$)
  82.     Palette$ = PaletteHeader$
  83.     ProgressBar(ENABLE,10,10,200,30)
  84.     UpdateProgressBar(0,ABSOLUTE)
  85.     For J=0 To 255
  86.         i = 255 - J
  87.         Str(i, i$)
  88.         Palette$ = Palette$ + i$  {red value}
  89.         Palette$ = Palette$ + " "
  90.         Palette$ = Palette$ + i$ {green value}
  91.         Palette$ = Palette$ + " "
  92.         Palette$ = Palette$ + i$ {blue value}
  93.         Palette$ = Palette$ + CRLF$
  94.         UpdateProgressBar(1,RELATIVE)
  95.     Next
  96.     PALFileName$ = SourceDir$ + "\negmap.pal"
  97.     Len(Palette$,Long)
  98.     FileDelete(PALFileName$,Res)
  99.     FileWrite_ASCII(PALFileName$,0,Long,Palette$,Res)
  100.     UseCursor(ARROW)
  101.     ProgressBar(DISABLE,10,10,200,220)
  102.     DrawStatusWinText(0,"Ready")
  103.     Goto Wait_for_Input
  104.  
  105.  
  106. Make_Strings:
  107.     Chr(13,CR$)  Chr(10,LF$)  CRLF$ = CR$ + LF$
  108.     PaletteHeader$ = "PiXCL-PAL" + CRLF$
  109.     PaletteHeader$ = PaletteHeader$ + "0100"
  110.     PaletteHeader$ = PaletteHeader$ + CRLF$
  111.     PaletteHeader$ = PaletteHeader$ + "256"
  112.     PaletteHeader$ = PaletteHeader$ + CRLF$
  113.     
  114.     Return